SetGfxDriver 1:Graphics 1024,768,8,2 :SetBuffer FrontBuffer() ;:SeedRnd MilliSecs()
Global spub
Include "fn.bb"
spub= Str "error"
While Not KeyHit(1) Or MouseHit(2)
ClsColor 0,0,0
Cls
randnum(0)
getnums()
;erase()
checke()
zzz1=zzz1+1:jzzz1=jzzz1+1
Flip
If zzz1> 71 Then   randnum(1)
VWait 
Wend 

Function erase()

End Function

Function fact_faza()

	For unittest=0 To 5	

		For i = 0 To 9 
;		If (i<3) Or  (i>5)Then  
;		PokeInt in2,i*5,mod2(PeekInt (in1,i*5) - unittest^15) 
;		Else 
		PokeInt in2,i*5,mod2(PeekInt (in1,i*5))
;		EndIf 
		Next 
			
		eee=fact(fact(PeekInt(in2,0),PeekInt(in2,5),PeekInt(in2,10)),fact(PeekInt(in2,0+15),PeekInt(in2,5+15),PeekInt(in2,10+15)),fact(PeekInt(in2,0+2*15),PeekInt(in2,5+2*15),PeekInt(in2,10+2*15)))
		If (eee = unittest) Then zzz(zzz1)=zzz(zzz1)+1:zzz2(zzz1,zzz2(zzz1,100))=unittest:zzz2(zzz1,100)=zzz2(zzz1,100)+1
		If zzz2(zzz1,100)=0 Then zzz2(zzz1,99)=eee
	Next
		
	For unittest=0 To 5	

		For i = 0 To 9 
		If (i<3) Or  (i>5)Then  PokeInt in3,i*5,mod2(PeekInt (in1,i*5) - unittest^55) Else PokeInt in3,i*5,mod2(PeekInt (in1,i*5))
		Next 
			
		eee=fact(fact(PeekInt(in3,0),PeekInt(in3,5),PeekInt(in3,10)),fact(PeekInt(in3,0+15),PeekInt(in3,5+15),PeekInt(in3,10+15)),fact(PeekInt(in3,0+2*15),PeekInt(in3,5+2*15),PeekInt(in3,10+2*15)))
		If (eee = unittest) Then jzzz(jzzz1)=jzzz(jzzz1)+1:jzzz2(jzzz1,jzzz2(jzzz1,100))=unittest:jzzz2(jzzz1,100)=jzzz2(jzzz1,100)+1
		If jzzz2(jzzz1,100)=0 Then jzzz2(jzzz1,99)=eee
	Next		

End Function